Examples of map layers

This document will be incomplete if rgdal is unavailable or there is on internet connection when this document is compiled. The full document is at diseasemapping.r-forge.r-project.org.

See mc.bbbike.org/mc for examples more map tiles (not all of which are compatible with mapmisc).

The following are some examples of maps produced with mymap=openmap(x, path="something")

osm

plot(openmap(x,path="osm"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

osm-admin

plot(openmap(x,path="osm-admin"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

osm-roads-grey

plot(openmap(x,path="osm-roads-grey"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

osm-roads

plot(openmap(x,path="osm-roads"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

osm-semitransparent

plot(openmap(x,path="osm-semitransparent"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

osm-no-labels

plot(openmap(x,path="osm-no-labels"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

osm-de

plot(openmap(x,path="osm-de"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

osm-transport

plot(openmap(x,path="osm-transport"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

bw-mapnik

plot(openmap(x,path="bw-mapnik"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

osm-cyclemap

plot(openmap(x,path="osm-cyclemap"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

osm-seamap

plotRGB(openmap(x,path="osm-seamap"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

osm-fr

plot(openmap(x,path="osm-fr"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

landscape

plot(openmap(x,path="landscape"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography by Thunderforest

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

hyda

plot(openmap(x,path="hyda"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

hyda-base

plot(openmap(x,path="hyda-base"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

hyda-roads

plot(openmap(x,path="hyda-roads"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

opentopomap

plot(openmap(x,path="opentopomap"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

maptoolkit

plot(openmap(x,path="maptoolkit"))

© Toursprung GmbH Data by OpenStreetMap, available under the Open Database License

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

waze

plotRGB(openmap(x,path="waze"))

© Waze mobile

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

waze-us

plotRGB(openmap(x,path="waze-us"))

© Waze mobile

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

humanitarian

plot(openmap(x,path="humanitarian"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography by Humanitarian OSM team is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

cartodb

plot(openmap(x,path="cartodb"))

Map tiles by CartoDB under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

cartodb-dark

plot(openmap(x,path="cartodb-dark"))

Map tiles by CartoDB under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

nrcan

plotRGB(openmap(x,path="nrcan"))

Cartography by The Canada Base Map - Transportation (CBMT) web mapping services of the Earth Sciences Sector (ESS) at Natural Resources Canada (NRCan) licensed as the Open Government Licence - Canada.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

nrcan-text

plotRGB(openmap(x,path="nrcan-text"))

Cartography by The Canada Base Map - Transportation (CBMT) web mapping services of the Earth Sciences Sector (ESS) at Natural Resources Canada (NRCan) licensed as the Open Government Licence - Canada.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

nrcan-text-fr

plotRGB(openmap(x,path="nrcan-text-fr"))

Cartography by The Canada Base Map - Transportation (CBMT) web mapping services of the Earth Sciences Sector (ESS) at Natural Resources Canada (NRCan) licensed as the Open Government Licence - Canada.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

spinal

plot(openmap(x,path="spinal"))

Map tiles by Thunderforest under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

neighbourhood

plot(openmap(x,path="neighbourhood"))

Map tiles by Thunderforest under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

pioneer

plot(openmap(x,path="pioneer"))

Map tiles by Thunderforest under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

mobile-atlas

plot(openmap(x,path="mobile-atlas"))

Map tiles by Thunderforest under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

wikimedia

plotRGB(openmap(x,path="wikimedia"))

© OpenStreetMap contributors. Data by OpenStreetMap, available under the Open Database License, cartography is licensed as CC BY-SA.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

sputnik

plot(openmap(x,path="sputnik"))

corp.sputnik.ru/maps.

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

stamen-toner

plotRGB(openmap(x,path="stamen-toner"))

Map tiles by Stamen Design under CC BY 3.0. Data by OpenStreetMap, available under the Open Database License

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

stamen-watercolor

plotRGB(openmap(x,path="stamen-watercolor"))

Map tiles by Stamen Design under CC BY 3.0. Data by OpenStreetMap, available under the CC BY-SA

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

stamen-terrain

plot(openmap(x,path="stamen-terrain"))

Map tiles by Stamen Design under CC BY 3.0. Data by OpenStreetMap, available under the CC BY-SA

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

stamen-terrain-labels

plotRGB(openmap(x,path="stamen-terrain-labels"))

Map tiles by Stamen Design under CC BY 3.0. Data by OpenStreetMap, available under the CC BY-SA

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

stamen-terrain-background

plot(openmap(x,path="stamen-terrain-background"))

Map tiles by Stamen Design under CC BY 3.0. Data by OpenStreetMap, available under the CC BY-SA

plot of chunk someTiles plot of chunk someTiles plot of chunk someTiles

Additional map layers

See mc.bbbike.org/mc

Michelin

mPath = osmTiles(paste(
  'http://map3.viamichelin.com/map/mapdirect?map=',
  c('light','viamichelin'), '&', sep=''),
  xyz='zxy=', suffix = 
    '&format=png&version=201503191157&layer=background')
## Warning in if (name %in% names(result)) {: the condition has length > 1 and
## only the first element will be used
africaMichelin = openmap(
  africaExtent, path=mPath,
  zoom=2,
  verbose=TRUE, 
  crs = crsMerc)
## zoom is  2 ,  1 tiles
## http://map3.viamichelin.com/map/mapdirect?map=viamichelin& 
## http://map3.viamichelin.com/map/mapdirect?map=viamichelin& 
## tile  /tmp/mapmiscCache_patrick/map3.viamichelin.com.map.mapdirect.map.viamichelin/z=2&x=2&y=1&format=png&version=201503191157&layer=background  cached
## http://map3.viamichelin.com/map/mapdirect?map=light& 
## http://map3.viamichelin.com/map/mapdirect?map=light& 
## tile  /tmp/mapmiscCache_patrick/map3.viamichelin.com.map.mapdirect.map.light/z=2&x=2&y=1&format=png&version=201503191157&layer=background  cached
## reprojecting  65536  cells...tiles arrived in the desired projection
## copying colortable for  http...map3.viamichelin.com.map.mapdirect.map.viamichelin. 
## copying colortable for  http...map3.viamichelin.com.map.mapdirect.map.light.
for(D in names(africaMichelin)) {
  plot(africaMichelin[[D]])
  mtext(D, side=3, line=-2, outer=FALSE)
}

plot of chunk additionalMichelinplot of chunk additionalMichelinplot of chunk additionalMichelinplot of chunk additionalMichelin Stamen retina

sPath = osmTiles('stamen-toner', 
  suffix = '@2x.png')

africaS = openmap(
  africaTiles, 
  buffer=-1,
  zoom=attributes(africaTiles)$tiles$zoom+1,
  path=sPath, verbose=TRUE)
## zoom is  3 ,  4 tiles
## http://d.tile.stamen.com/toner/ 
## http://d.tile.stamen.com/toner/ 
## tile  /tmp/mapmiscCache_patrick/stamen.com.toner/3/4/2@2x.png  cached
## tile  /tmp/mapmiscCache_patrick/stamen.com.toner/3/4/3@2x.png  cached
## tile  /tmp/mapmiscCache_patrick/stamen.com.toner/3/5/2@2x.png  cached
## tile  /tmp/mapmiscCache_patrick/stamen.com.toner/3/5/3@2x.png  cached
## reprojecting  1048576  cells...tiles arrived in the desired projection
africaS2 = tonerToTrans(africaS)

plot(africaTiles[['opentopomap']])
plot of chunk stamenRetina
plot of chunk stamenRetina
plot(africaS2, add=TRUE)

mtext(sPath, side=3, line=-2, outer=FALSE)
plot of chunk stamenRetina
plot of chunk stamenRetina

Komoot, Yandex, ESRI, F4map, and Sigma

otherPaths = c(
  'https://a.tile.hosted.thunderforest.com/komoot-2/',
  'https://sat01.maps.yandex.net/tiles?l=sat&v=1.35.0&',
  'https://vec02.maps.yandex.net/tiles?l=map&v=4.40&',
  'https://server.arcgisonline.com/ArcGIS/rest/services/World_Physical_Map/MapServer/tile/',
  'https://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/',
  'https://services.arcgisonline.com/ArcGIS/rest/services/Ocean/World_Ocean_Base/MapServer/tile/',
  'https://tile2.f4map.com/tiles/f4_2d/',
  'http://tiles1.sigma-dc-control.com/layer8/')

africaExtra = openmap(
  africaExtent, path=otherPaths,
  zoom=2,
  verbose=TRUE, 
  crs = crsMerc)
## zoom is  2 ,  1 tiles
## http://tiles1.sigma-dc-control.com/layer8/ 
## http://tiles1.sigma-dc-control.com/layer8/ 
## tile  /tmp/mapmiscCache_patrick/tiles1.sigma.dc.control.com.layer8/2/2/1.png  cached
## https://tile2.f4map.com/tiles/f4_2d/ 
## https://tile2.f4map.com/tiles/f4_2d/ 
## tile  /tmp/mapmiscCache_patrick/tile2.f4map.com.tiles.f4_2d/2/2/1.png  cached
## https://services.arcgisonline.com/ArcGIS/rest/services/Ocean/World_Ocean_Base/MapServer/tile/ 
## https://services.arcgisonline.com/ArcGIS/rest/services/Ocean/World_Ocean_Base/MapServer/tile/ 
## tile  /tmp/mapmiscCache_patrick/services.arcgisonline.com.ArcGIS.rest.services.Ocean.World_Ocean_Base.MapServer.tile/2/1/2.jpg  cached
## https://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/ 
## https://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/ 
## tile  /tmp/mapmiscCache_patrick/server.arcgisonline.com.ArcGIS.rest.services.World_Imagery.MapServer.tile/2/1/2.jpg  cached
## https://server.arcgisonline.com/ArcGIS/rest/services/World_Physical_Map/MapServer/tile/ 
## https://server.arcgisonline.com/ArcGIS/rest/services/World_Physical_Map/MapServer/tile/ 
## tile  /tmp/mapmiscCache_patrick/server.arcgisonline.com.ArcGIS.rest.services.World_Physical_Map.MapServer.tile/2/1/2.jpg  cached
## https://vec02.maps.yandex.net/tiles?l=map&v=4.40& 
## https://vec02.maps.yandex.net/tiles?l=map&v=4.40& 
## tile  /tmp/mapmiscCache_patrick/vec02.maps.yandex.net.tiles.l.map.v.4.40/x=2&y=1&z=2  cached
## https://sat01.maps.yandex.net/tiles?l=sat&v=1.35.0& 
## https://sat01.maps.yandex.net/tiles?l=sat&v=1.35.0& 
## tile  /tmp/mapmiscCache_patrick/sat01.maps.yandex.net.tiles.l.sat.v.1.35.0/x=2&y=1&z=2  cached
## https://a.tile.hosted.thunderforest.com/komoot-2/ 
## https://a.tile.hosted.thunderforest.com/komoot-2/ 
## tile  /tmp/mapmiscCache_patrick/hosted.thunderforest.com.komoot.2/2/2/1.png  cached
## reprojecting  65536  cells...tiles arrived in the desired projection
## copying colortable for  http...tiles1.sigma.dc.control.com.layer8. 
## copying colortable for  https...tile2.f4map.com.tiles.f4_2d. 
## copying colortable for  https...vec02.maps.yandex.net.tiles.l.map.v.4.40. 
## copying colortable for  https...a.tile.hosted.thunderforest.com.komoot.2.
Spaths = unique(
  gsub("(red|green|blue|trans)$", "",
    names(africaExtra), ignore.case=TRUE)
)

for(D in Spaths) {
  
  oneTileName = grep(paste("^", D, "$", sep=""), 
    names(africaExtra), value=TRUE)
  
  threeTilesName = grep(paste("^", D, 
      "([rR]ed|[gG]reen|[bB]lue)$", sep=""), 
    names(africaExtra),value=TRUE)
  
  if(length(threeTilesName)==3) {
    plotRGB(africaExtra[[threeTilesName]])
  } else {
    plot(africaExtra[[oneTileName]])
  }
  mtext(D, side=3, line=-2, outer=FALSE)
}

plot of chunk aditionalEsriplot of chunk aditionalEsriplot of chunk aditionalEsriplot of chunk aditionalEsriplot of chunk aditionalEsriplot of chunk aditionalEsriplot of chunk aditionalEsriplot of chunk aditionalEsriplot of chunk aditionalEsriplot of chunk aditionalEsriplot of chunk aditionalEsriplot of chunk aditionalEsri